01 LBL "J1" 
02 ENTER^ 
03 INT 
04 ST- Y 
05 X<>Y 
06 E2 
07 * 
08 ENTER^ 
09 INT 
10 STO M 
11 - 
12 E2 
13 * 
14 X<> M 
15 1 
16 E^X 
17 - 
18 12 
19 / 
20 + 
21 INT 
22 ST- M 
23 LASTX 
24 367 
25 * 
26 INT 
27 ST+ M 
28 SIGN 
29 FS? 04 
30 ISG X 
31 % 
32 INT 
33 .75 
34 ST* Z 
35 * 
36 X<>Y 
37 ST- M 
38 CLX 
39 X<> M 
40 INT 
41 X<>Y 
42 - 
43 INT 
44 730434 
45 - 
46 END 
